
VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "SH_Opts"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Target.Column = 3 And Target.Row <= [a65536].End(xlUp).Row Then
    Cancel = True
    If Target = "a" Then Target = "" Else Target = "a" 'удобная простановка галочек
  End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 2 Then
    If Cells(Target.Row, 1) = "tc" Then 'синхронизируем тип разбивки
      tmp = Split(Sheets("Parts").[B5].Validation.Formula1, ";")
      If Val(Target) > 0 And Val(Target) - 1 <= UBound(tmp) Then
            vc = tmp(Val(Target) - 1)
      Else: vc = "числу слов"
      End If
      Application.EnableEvents = 0
      Sheets("Parts").[B5] = vc
      Application.EnableEvents = 1
    End If
  End If
End Sub
